home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Open Prolog 1.0.3d33 / Documents / The Draw Predicate - Text < prev   
Text File  |  1995-12-19  |  2KB  |  75 lines
  1. The draw/3 predicate in Open Prolog.
  2.  
  3. The draw/3 predicate is a fairly buggy graphics interface to Open Prolog.
  4. Please don't use these facilities unless you're happy (!) to allow your system to crash occasionally.
  5. The window isn’t fully integrated into the window handling system, so some odd behaviour can occur.
  6. To save or print any drawings, it’s necessary to copy them via the clipboard to an appropriate application.
  7.  
  8. draw/3 is an external built-in predicate that takes three arguments.
  9.  
  10. The first argument is the command number.
  11.  
  12. The second argument is the parameter.
  13.  
  14. The third argument is a result, which is not used.
  15.  
  16. The commands currently implemented and their arguments are described below.
  17.  
  18. Where no argument is specified, use the anonymous variable as a placeholder.
  19.  
  20.  
  21. Command    Explanation    Arguments
  22.  
  23. 1    open the graphics window:    <name>(Top,Left,Bottom,Right)
  24.  
  25. 2    close the graphics window    _
  26.  
  27. 3    draw a line:    line(StartX,StartY,EndX,EndY)
  28.  
  29. 4    draw a rectangle:    rect(Left,Top,Right,Bottom)
  30.  
  31. 5    draw text:    text(X,Y,TextAtom)
  32.  
  33. 6    set pen size:    penSize(Width,Height)
  34.  
  35. 7    set pen mode:    penMode(ModeNumber)
  36.  
  37. 8    set pattern:    penPattern(PatternNumber)
  38.  
  39. 9    set foreground colour    color(ColorNumber)
  40.  
  41. 10    set background colour    color(ColorNumber)
  42.  
  43. 11    erase window contents    _
  44.  
  45. 12    draw oval    oval(Left,Top,Right,Bottom)
  46.  
  47.  
  48. colorNumbers
  49.  
  50. 0 to 7
  51.  
  52. black,yellow,magenta,red,cyan,green,blue,white
  53.  
  54.  
  55. patterns
  56.  
  57. 1-38
  58.  
  59. see Inside Macintosh, Vol 1, p474
  60.  
  61.  
  62. modeNumber
  63.  
  64. 8-15
  65.  
  66. see Inside Macintosh, Vol 1, p169/170
  67.  
  68.  
  69. examples
  70. draw(1,'Graphics Window'(40,40,200,200),_). %open a window
  71.  
  72. draw(4,rect(20,20,180,200),_). %draw a rectangle
  73.  
  74. draw(2,_,_). %close the graphics window
  75.